Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Обчислення виразів. Використання стандартних функцій.

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут комп’ютерних наук та інформаційних технологій
Факультет:
Не вказано
Кафедра:
Програмного забезпечення (ПЗ)

Інформація про роботу

Рік:
2006
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови
Група:
КН-1
Варіант:
8

Частина тексту файла

Міністерство освіти та науки України Національний університет «Львівська політехніка» Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ З В І Т Лабораторна робота № 3 з курсу «Основи програмування та алгоритмічні мови» Тема: «Обчислення виразів. Використання стандартних функцій» Варіант 8 Виконав: ст. гр. КН-1 Львів-2006 Мета роботи : Вивчення порядку дій при обчисленні виразів. Одержання навиків запису виразів на мові Паскаль і використання Завдання : Створити файл програми на мові Паскаль і обчислити значення заданої функції. За допомогою клавіатури ввести координати точки і перевірити чи ця точка належить заданій області на координатній площині. 3. Відлагодити, скомпілювати і зберегти програму. 4. Запустити програму на розв’язування задачі і вивести результати для підготовки тестового прикладу. 5. Оформити звіт про роботу. Постановка задачі : 1. Обчислити значення функції :  2. Ввести з клавіатури координати точки і перевірити чи ця точка належить заданій області на координатній площині. Блок-схема алгоритму Початок Ввід Х у11 = |у| Вивід у11 у22= |у11+0.5| Вивід у22 Ввід Х,У result:=(x1*x1+y1*y1<=1)and(abs(x1-1)>=y1) Ввід result Кінець program lab3; uses crt; label 1; var y,y11,y12,x,x1,y1,r:real; result:boolean; begin clrscr; 1:write('Vvedit x '); readln(x); if (x>-1)and(x<1) then begin y:=arctan(1/(sqrt(1-x*x)))+x*x; y11:=round(y);y12:=trunc(y); writeln('y=',y:5:2); writeln('y11=',y11:5:2); writeln('y12=',y12:5:2); end else begin writeln('nepravulnuu arhyment x e (-1;1)'); goto 1; end; writeln('Vvedit x1,y1'); readln(x1,y1); result:=(x1*x1+y1*y1<=1)and(abs(x1-1)>=y1); writeln(result); readln; end. Протокол роботи програми : ----------------------------------------------------------------------------------------------- Vvedit X = 2 nepravulnuu arhyment x e (-1;1) Vvedit X = 0.2; y=0.84 y11 = 1.00 y22 = 0.00 ---------------- X = 0.9 Y = 0.7 FALSE ----------------------------------------------------------------------------------------------- X = 0.9 y=1.97 y11 = 2 y22 = 1 --------------- X = 0.3 Y = 0.1 TRUE ----------------------------------------------------------------------------------------------- Висновок: На даній лабораторній роботі я одержав деякі навики запису виразів у середовищі Turbo Pascal, а також щодо використання стандартних функцій. Я запустив програму на виконання і вивів результати для тестових прикладів.
Антиботан аватар за замовчуванням

01.01.1970 03:01

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини